home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / UNIT3.PAS < prev    next >
Pascal/Delphi Source File  |  1987-12-12  |  316b  |  20 lines
  1. UNIT Unit3;
  2.  
  3. INTERFACE
  4.  
  5. IMPLEMENTATION
  6.  
  7. VAR Save : Pointer;
  8.  
  9. {$F+} PROCEDURE Unit3ExitProcedure; {$F-}
  10.  
  11. BEGIN
  12.   Writeln('Unit #3 -- Exit procedure...');
  13.   ExitProc := Save
  14. END;
  15.  
  16. BEGIN
  17.   Save := ExitProc;
  18.   ExitProc := @Unit3ExitProcedure;
  19.   Writeln('Unit #3 -- Initialization procedure...');
  20. END.